knitr::opts_chunk$set(echo = TRUE,
message = FALSE,
warning = FALSE)
#attach necessary packages
library(tmaptools)
library(sf)
library(tmap)
library(mapview)
library(tidyverse)
library(janitor)
library(lubridate)
library(here)
library(shinyjs)
library(paletteer)
This will be creating a map which shows he different land use and covers for the Hawaiian islands. It also displays the different watersheds for all of the Hawaiian islands as well. The data was collected by the Hawaii Statewide GIS Program.
#read in the necessary shape files
land_use <- read_sf(dsn = here::here("data"), layer ="Land_Use_Land_Cover_LULC") %>%
clean_names() %>%
st_transform(crs = 4326)
#lets just see what we are working with
mapview(land_use)